#include "extend.h"
#include <dos.h>

LONG FP_OFF( char * );
LONG FP_SEG( char * );

CLIPPER lChDir()
{
   char * szPath = ( char * ) _parc( 1 );

   asm push ds;

   _DX = FP_OFF( szPath );
   _DS = FP_SEG( szPath );
   _AH = 0x3B;
   geninterrupt( 0x21 );

   asm pop ds;

   _retl( _AX != 3 );
}
